home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 10
/
AACD 10.iso
/
AACD
/
Programming
/
AmigaTalk
/
Intuition
/
Colors.st
< prev
next >
Wrap
Text File
|
2000-05-07
|
1KB
|
40 lines
"------------------------------------------------------------------"
" Colors Class implements control of Amiga Color registers "
" Chances are that Glyph is the wrong parent class for this class. "
"------------------------------------------------------------------"
Class Colors :Glyph
! value mapName wName !
[
make: colorMapName size: numColors
<primitive 184 1 colorMapName numColors>.
mapName <- colorMapName
|
dispose
<primitive 184 0 mapName>
|
loadColors: howMany from: colorMapFileName
<primitive 184 2 wName howMany colorMapFileName>
|
getColor: sourceType from: sourceName which: n
^ value <- <primitive 184 3 sourceType sourceName n>
|
setWindowColorReg: n red: r green: g blue: b
<primitive 184 4 wName n r g b>
|
setMapValue: sourceType from: source num: n red: r green: g blue: b
<primitive 184 5 sourceType source n r g b>
|
copyMap: source to: dest sourceType: type
<primitive 184 6 source dest type>
|
saveColorsTo: colorMapFileName
<primitive 184 7 wName colorMapFileName>
|
new: windowTitle
wName <- windowTitle.
mapName <- nil.
value <- 0.
^ self
]